﻿<!--#include file="const.inc"-->

<%
	dim rs,sql,i
		dim rs_1,sql_1
		Set Rs_1 = Server.CreateObject("Adodb.Recordset")
		Sql_1 = "select [title],[px],[copyright],[logo] from qingtian_bbs_config"
		Rs_1.Open Sql_1,conn,1,1
		if not (rs_1.bof and rs_1.eof)  then
                mainame=rs_1("title")
                px=rs_1("px")
                copyright=rs_1("copyright")
                logo=rs_1("logo")
		end if
		Rs_1.close
		set rs_1=nothing
select case v
case "0"
we0="<br/>"
%>
<card title="<%=mainame%>"><p align="<%=px%>">
<%
case "1"
hr="<hr>"
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
%>
<title><%=mainame%></title>
</head>
<body>
<%

End Select

%>
<%
		if Logo<>"" then
		%><img src="<%=Logo%>" alt='logo'/><%
		end if


		if sid="Null" then
		%><%=we%><%=zi%>欢迎你<%=zi0%><a href="/login.asp?sid=<%=sidd%>&amp;url=/bbs/index.asp">注册/登陆</a><%=we0%><%
		else
		%><%=we%><%=zi%><%=qingtian.utf8(session("username"))%>,欢迎你归来!<%=zi0%><%=we0%><%
		qingtian.info
		end if

			Set Rs = Server.CreateObject("Adodb.Recordset")



			Sql = "select [id],[name],[ext],[urls],[img],[br],[content],[yinz] from qingtian_bbsclass where fleg=0 order by [pid] asc"
			Rs.Open Sql,conn,1,1
			if not (rs.bof and rs.eof)  then
			For i=1 to rs.RecordCount
                        if rs("yinz")=0 then
			select case rs("ext")
				case 0
					%><a href="tian.asp?id=<%=rs("id")%>&amp;sid=<%=sidd%>"><%=qingtian.utf8(rs("name"))%></a><%
					if rs("br")=1 then
%><br/>
<%
end if
				
				case 3
					%>

<!--#include virtual="/inc/cssdate.inc"-->

<%=cp.ubbshow(qingtian.wml(content))%><%
					if rs("br")=1 then
						%><br/><%

			end if
				case 4
					if len(rs("urls"))>0 then
					%><a href="<%=qingtian.utf8(rs("urls"))%>"><img src="<%=qingtian.utf8(rs("img"))%>" alt=''/></a><%
					else
					%><img src="<%=qingtian.utf8(rs("img"))%>" alt=''/><%
					end if
					if rs("br")=1 then
						%><br/><%

			end if
				case 5
					%><a href="board.asp?listid=<%=rs("img")%>&amp;sid=<%=sidd%>"><%=qingtian.utf8(rs("name"))%></a><%
					if rs("br")=1 then
						%><br/><%

			end if

			end select
					end if
			Rs.MoveNext
			next
			end if
			Rs.close
			
		set rs=nothing

		%><%=we%><%=Copyright%><%=we0%><%

End Function
%>
